DEFINE VARIABLE c AS CHARACTER NO-UNDO.
ASSIGN c = DYNAMIC-FUNCTION('getParameter' IN SOURCE-PROCEDURE, INPUT 'TEST').
IF (c EQ 'AA''BB') THEN
  RETURN "0".
ELSE
  RETURN "1".
